!=======Programa que calcula volume e área das faces de uma caixa======

PROGRAM exec02

!======================================================================

IMPLICIT NONE

!========================Declaração de variáveis=======================

      REAL(4) :: a, b, c ! a = lado1, b = lado2, c = lado3

!========================Inicializa as variáveis=======================

      a = 0
      b = 0
      c = 0

!===========================Entrada de dados===========================
            
      !Loop que checa se entrou com lado < ou = a zero
      DO WHILE (a <= 0 .OR. b <= 0 .OR. c <= 0)
            WRITE(*,*) 'Entre com os lados no formato: lado1 lado2 lado3 (> 0)'
            READ(*,*) a, b, c
      END DO

!================Calculo e escrita na tela das áreas===================

      WRITE(*,*) 'A área definida por lado1 e lado2 é:', a*b, 'unidades de área'
      WRITE(*,*) 'A área definida por lado2 e lado3 é:', b*c, 'unidades de área'
      WRITE(*,*) 'A área definida por lado1 e lado3 é:', a*c, 'unidades de área'

!================Calculo e escrita na tela do volume===================
      
      WRITE(*,*) 'O volume da caixa é:', a*b*c, 'unidades de volume' 

!======================================================================

END PROGRAM exec02
